home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Dylan Related / Mindy / Mindy 1.2 - portable sources / interp / make-init.pl < prev    next >
Encoding:
Perl Script  |  1995-03-15  |  431 b   |  22 lines  |  [TEXT/ttxt]
  1. #! /usr/local/bin/perl
  2.  
  3. while (<>) {
  4.     chop($_);
  5.     $names{$_}++;
  6. }
  7.  
  8. open(out1, ">,extern1.def");
  9. @keys = keys(%names);
  10. print out1 "#define extern_sym_count " . scalar(@keys) . "\n";
  11. foreach $name (@keys) {
  12.     print out1 "extern void *$name;\n";
  13. }
  14. close(out1);
  15.  
  16. open(out2, ">,extern2.def");
  17. foreach $name (@keys) {
  18.     ($name2 = $name) =~ s/\(\)$//;
  19.     print out2 "add_explicit_symbol(\"$name2\", &$name2);\n";
  20. }
  21. close(out2);
  22.